/* GUI CONVERTED from rmar3frm.i (converter v1.75) Sat Aug 12 23:11:31 2000 */
/* rmar3frm.i - RMA LINKED RECEIPT LINE FORM                            */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/*F0PN*/ /*V8:ConvertMode=Maintenance                                   */
/*K1Q4*/ /*V8:RunMode=Character,Windows                                 */
/*  REVISION: 6.0      LAST MODIFIED: 12/16/91   BY: sas *C299*         */
/*  REVISION: 6.0      LAST MODIFIED: 02/15/92   BY: sas *F153*         */
/*  REVISION: 7.0      LAST MODIFIED: 05/05/92   BY: sas *F448*         */
/*  REVISION: 7.3      LAST MODIFIED: 06/05/93   BY: sas *GB70*         */
/*            7.3                     09/10/94   BY: bcm *GM04*         */
/*            7.3                     03/03/95   BY: smp *F0LH*         */
/*  REVISION: 8.5      LAST MODIFIED: 05/01/95   BY: *J04C* Sue Poland  */
/*  REVISION: 8.5      LAST MODIFIED: 12/04/95   BY: *J04C* Tom Vogten  */
/*  REVISION: 8.5      LAST MODIFIED: 12/22/95   BY: *G1F7* Sue Poland   */
/*  REVISION: 8.5      LAST MODIFIED: 02/26/96   BY: *J04C* L. Morando   */
/*  REVISION: 8.5      LAST MODIFIED: 08/28/96   BY: *G2DF* Sue Poland   */

/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan    */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan    */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb              */
/*G2DF* Added Ship Type between Processing and Taxable - juggled frame */
/*G2DF* Changed 46's to 51's */

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rmar3frm_i_1 " Receipt "
/* MaxLen: Comment: */

&SCOPED-DEFINE rmar3frm_i_2 "ISB Ref"
/* MaxLen: Comment: */

&SCOPED-DEFINE rmar3frm_i_3 "Qty to Receive"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

        FORM /*GUI*/ 
        
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
line           colon 15
        part           colon 15
/*F0LH*         desc1          colon 16    no-label    */
/*G1F7* /*F0LH*/  desc1        colon 17    no-label    */
/*G1F7*/        desc1          colon 15
/*GM04*/        rmd_price      colon 51 space(2)
/*GM04**        rmd_price      colon 46 **/
        sod_um         colon 15
        sod_site       colon 51
        serial         colon 15
        sod_loc        colon 51
        rmd_ref        colon 15
/*G1F7*/                                    label {&rmar3frm_i_2}
/*J04C*/        process-type   colon 51
/*J04C*/    process-label                no-label
/*G2DF*/                                                format "X(20)"
/*J04C*     rmd_process    colon 46    */                    /*GB70*/
        rmd_qty_ord    colon 15
/*J04C*/        sod_taxable    colon 51 /*TVO*/
/*J04C*/        sod_taxc       no-label /*TVO*/
        qty_open       colon 15 label {&rmar3frm_i_3}
/*G2DF*/        sod_type       colon 51
         SKIP(.4)  /*GUI*/
with frame f  overlay side-labels  centered
/*GM04*/    
/*J04C*/    width 80 NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-f-title AS CHARACTER.
 F-f-title = (getFrameTitle("RECEIPT",18)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame f = F-f-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame f =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame f + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame f =
  FRAME f:HEIGHT-PIXELS - RECT-FRAME:Y in frame f - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME f = FRAME f:WIDTH-CHARS - .5. /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame f:handle).
/*GM04**    title color normal "Receipt ".   */
